home *** CD-ROM | disk | FTP | other *** search
/ HPAVC / HPAVC CD-ROM.iso / pc / PWA-NSP1.ZIP / AMI-NFS.PPS < prev    next >
Encoding:
Text File  |  1995-02-05  |  3.6 KB  |  144 lines
  1. integer counter, temp
  2. string userinput, temp2, keypressed, Areas_to_Scan
  3. string key3, key4, key5, areas1, areas2, areas3
  4.  
  5. fopen 1, ppepath() + "AMI-NFS.CFG", O_RD, S_DN
  6. fget 1, Areas_to_Scan
  7. fget 1, key3
  8. fget 1, key4
  9. fget 1, key5
  10. fclose 1
  11.  
  12. IF (!(tokcount()<>0)) goto Start_Scanning
  13. KeyPressed=tokenstr()
  14. tokenize KeyPressed
  15. gettoken Userinput
  16. gettoken Areas_to_Scan
  17. gettoken Areas1
  18. gettoken Areas2
  19. gettoken Areas3
  20. goto Skip_Input
  21.  
  22. :Start_Scanning
  23. println
  24. println "@X01--[ @X03Newscan Pro-PC 1.0 by Mass Murderer [PWA] @X01]-------[ @X03'n ?' for options @X01]--"
  25. println
  26.  
  27. IF (Exist(ppepath()+key4)) dispfile ppepath()+key4, Defs
  28. inputstr " _",Userinput,7,8,Mask_Ascii(),newline
  29.  
  30. : Skip_Input
  31.  
  32.     IF (upper(userinput)="D") then
  33.         temp=DATE()
  34.         temp2 = todate(temp)
  35.         println
  36.         println "@X01--[ @X03Newscan Pro-PC 1.0 by Mass Murderer [PWA] @X01]-------[ @X03'n ?' for options @X01]--"
  37.         println
  38.         goto pressd
  39.  
  40.     ELSEIF (upper(userinput)="S") then
  41.         temp=(u_ldir())
  42.         temp2=strip(todate(temp),"-")
  43.  
  44.     ELSEIF (upper(userinput)="T") then
  45.         temp=DATE()
  46.         temp2=strip(TODATE(temp),"-")
  47.  
  48.     ELSEIF (upper(userinput)="W") then
  49.         temp=DATE()-7
  50.         temp2=strip(TODATE(temp),"-")
  51.  
  52.     ELSEIF (upper(userinput)="Y") then
  53.         temp=DATE()-1
  54.         temp2=strip(TODATE(temp),"-")
  55.  
  56.     ELSEIF (left(userinput,1)="-") then
  57.         temp=DATE()-STRIP(userinput,"-")
  58.         temp2=strip(TODATE(temp),"-")
  59.  
  60.     ELSEIF (upper(userinput)="") then
  61.         temp=(u_ldir())
  62.         temp2=strip(todate(temp),"-")
  63.  
  64.     ELSEIF (upper(userinput)="Q") then
  65.         newline
  66.         end
  67.  
  68.     ELSEIF (userinput="?") then
  69.         IF (EXIST(PPEPATH() + "AMI-NFS.HLP")) dispfile ppepath() + "AMI-NFS.HLP", defs
  70.         end
  71.  
  72.     Else
  73.         temp2=STRIP(userinput,"-")
  74.  
  75.     ENDIF
  76.  
  77.     cls
  78.     println
  79.     println "@X01--[ @X03Newscan Pro-PC 1.0 by Mass Murderer [PWA] @X01]-------[ @X03'n ?' for options @X01]--"
  80.     println
  81.     print replacestr(key5,"$SCANDATE",string(todate(temp2)))
  82.  
  83.     If (IsNonStop()) then
  84.             kbdstuff "N "+string(temp2)+" "+Areas_to_Scan+" " + areas1 + " " + areas2+" "+areas3+" NS"+chr(13)
  85.  
  86.     Elseif (!IsNonStop()) then
  87.             kbdstuff "N "+string(temp2)+" "+Areas_to_Scan+" " + areas1 + " " + areas2 + " " + areas3 + chr(13)
  88.  
  89.     EndIf
  90.  
  91.     newline
  92.     end
  93.  
  94. : PressD
  95. ansipos 1,gety()
  96. print key3+" "+temp2
  97.  
  98. : Skip_Input2
  99.  
  100.     userinput = ""
  101.     userinput = inkey()
  102.  
  103.     IF (upper(userinput)="-") then
  104.         DEC counter
  105.         LET temp=DATE()+counter
  106.         LET temp2 = todate(temp)
  107.         goto PressD
  108.  
  109.     ELSEIF (userinput="+" | userinput="=") then
  110.         INC counter
  111.         LET temp=DATE()+counter
  112.         LET temp2 = todate(temp)
  113.         goto PressD
  114.  
  115.     ELSEIF (upper(userinput)="Q") then
  116.         println
  117.         end
  118.  
  119.     ELSEIF (upper(userinput)=chr(13)) then
  120.         println
  121.         temp2=strip(TODATE(temp),"-")
  122.         newline
  123.         cls
  124.         println
  125.         println "@X01--[ @X03Newscan Pro-PC 1.0 by Mass Murderer [PWA] @X01]-------[ @X03'n ?' for options @X01]--"
  126.         println
  127.         print replacestr(key5,"$SCANDATE",string(todate(temp2)))
  128.  
  129.         IF (IsNonStop()) then
  130.             kbdstuff "N " + string(temp2) + " " + ReadLine(PPEPath()+"AMI-NFS.CFG",1) + " NS" + chr(13)
  131.  
  132.         Elseif (!IsNonStop()) then
  133.             kbdstuff "N " + string(temp2) + " " + ReadLine(PPEPath()+"AMI-NFS.CFG",1) + chr(13)
  134.  
  135.         EndIf
  136.  
  137.         newline
  138.         end
  139.  
  140.     Else
  141.         Goto Skip_Input2
  142.  
  143.     Endif
  144.